#!/usr/bin/perl

package PerLISP::Cons;

require Exporter;

use strict;
use warnings;

use PerLISP::LispOps;

our @ISA = qw(Exporter);
our @EXPORT_OK = qw( );
our $VERSION = 0.01;

sub new {
  my ($class, $car, $cdr) = @_;
  my $self = {
              _car => $car,
              _cdr => $cdr
             };
  bless $self, $class;
  return $self;
}

sub get_car {
  my $self = shift;
  return $self->{ _car };
}

sub get_cdr {
  my $self = shift;
  return $self->{ _cdr };
}

sub set_cdr {
  my ($self, $cons) = shift;
  $self->{ _cdr } = $cons;
  return $self;
}

sub set_car {
  my ($self, $cons) = shift;
  $self->{ _car } = $cons;
  return $self;
}

1;
